<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="aFunction_charCode.asp" -->
<!-- #include file="ad_comSub.asp" -->

<%
Call tslt_useridentity12_error_end()
%>

<html>
<head>
<title></title>
<link href=../style/<%=session("tslt_stylefolder")%>/admin.css rel="stylesheet" type="text/css">
</head>
<body bgcolor=#aaaac4>
<br>
<CENTER>
<table><tr><td class="font2">߱༭</td></tr></table>
<br>
<table border=1 width=600 bgcolor=#dedfde cellpadding="15" cellspacing="15">
       <tr>
             <td align=center>
<%
              dim rs,spl
              dim IsEWeb2,str1,str2
              sql="select * from option1"
              set rs=conn.execute(sql)
                    IsEWeb2=rs("IsEWeb")
                    if IsEWeb2=true then
                           str1="checked"
                    else
                           str2="checked"
                    end if
              rs.close
              set rs=nothing
              if IsEWeb2 then
                     Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_OpenEWeb(0))</SCRIPT>"
              else
                     Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_OpenEWeb(1))</SCRIPT>"
              end if
%>
              <br>
              <form method="post" action="" name="form1">
                     <input type="hidden" name="isok" value="ok">
                     <input type="radio" value="yes" name="OE" <%=str1%>> ߱༭
                     <input type="radio" value="no" name="OE" <%=str2%>> ͣ߱༭
                     <br><br>
                     <p style='margin:8'><input type="submit" value="      " name="B1">
              </form>
              </td>
       </tr>
</table>
<br>

<%
dim sure
sure = Request.form("isok")
if sure = "ok" then
       call OpenEWeb()
end if
%>

</CENTER>
</body>
</html>

<%
Call conn_Nothing()

sub OpenEWeb() 
       dim OE
       OE=request.form("OE")
       if OE="yes" then
               conn.execute("update option1 set IsEWeb=true")
       else
               conn.execute("update option1 set IsEWeb=false")
       end if
       Call infoDivShow("  óɹ  ")
       Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=OpenEWeb.asp'>"
end sub
%>


